home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 74 / 074.d81 / char swap.buddy (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  887b  |  60 lines
  1. 100 sys999
  2. 110 .org $c000
  3. 120 .obj "switch $c000"
  4. 130 jsr $aefd   ;check comma
  5. 140 jsr $ad8a   ;get this
  6. 150 jsr $b7f7   ;change fac
  7. 160 lda $14
  8. 170 sta this
  9. 180 jsr $aefd  ;check comma
  10. 190 jsr $ad8a  ;get that
  11. 200 jsr $b7f7  ;change fac
  12. 210 lda $14
  13. 220 sta that
  14. 230 jsr $aefd  ;check comma
  15. 240 jsr $ad8a  ;get color
  16. 250 jsr $b7f7  ;change fac
  17. 260 lda $14
  18. 270 sta color
  19. 280 lda #0
  20. 290 sta 251
  21. 300 sta 253
  22. 310 lda 648
  23. 320 sta 252
  24. 330 lda #>55296
  25. 340 sta 254
  26. 341 - lda 53265
  27. 342 bpl -
  28. 350 main ldy #0
  29. 360 ldx #0
  30. 370 - lda (251),y
  31. 380 cmp this
  32. 390 bne +
  33. 400 jsr change
  34. 410 + iny
  35. 420 bne -
  36. 430 inx
  37. 440 inc 254
  38. 450 inc 252
  39. 460 cpx #3
  40. 470 bne -
  41. 480 last'loop lda (251),y
  42. 490 cmp this
  43. 500 bne +
  44. 510 jsr change
  45. 520 + iny
  46. 530 cpy #232
  47. 540 bne last'loop
  48. 550 rts
  49. 560 change lda that
  50. 570 sta (251),y
  51. 580 lda color
  52. 590 sta (253),y
  53. 600 rts
  54. 610 this =*
  55. 620 .buf 1
  56. 630 that =*
  57. 640 .buf 1
  58. 650 color =*
  59. 660 .buf 1
  60.